home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / AreaFonts.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  1.6 KB  |  71 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w,font1,font2,font3,font4,font5
  7.  
  8.    font1 := 'Garnet/16'
  9.    font2 := 'Helvetica/15'
  10.    font3 := 'Diamond/12'
  11.    font4 := 'topaz/8'
  12.    font5 := 'Mario/12'
  13.  
  14.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  15.       c := ClientObject,
  16.          Child, w := WindowObject, FA_Window_Title, 'Feelin : Differents fonts',
  17.             Child, VGroup,
  18.                Child, HGroup, GroupFrame, FA_Frame_Title,font1, FA_Frame_Font,font5,
  19.                   Child, button('Save',font1),
  20.                   Child, button('Use',font1),
  21.                   Child, button('Cancel',font1),
  22.                End,
  23.  
  24.                Child, HGroup, GroupFrame, FA_Frame_Title,font2,
  25.                   Child, button('Save',font2),
  26.                   Child, button('Use',font2),
  27.                   Child, button('Cancel',font2),
  28.                End,
  29.  
  30.                Child, HGroup, GroupFrame, FA_Frame_Title,font3, FA_Frame_Font,font5,
  31.                   Child, button('Save',font3),
  32.                   Child, button('Use',font3),
  33.                   Child, button('Cancel',font3),
  34.                End,
  35.  
  36.                Child, HGroup, GroupFrame, FA_Frame_Title,font4,
  37.                   Child, button('Save',font4),
  38.                   Child, button('Use',font4),
  39.                   Child, button('Cancel',font4),
  40.                End,
  41.             End,
  42.          End,
  43.       End
  44.  
  45.       IF c
  46.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  47.          F_Set(w,FA_Window_Open,TRUE)
  48.  
  49.          F_DoA(c,FM_Client_Run,NIL)
  50.  
  51.          F_DisposeObj(c)
  52.       ENDIF
  53.  
  54.       CloseLibrary(feelinbase)
  55.    ELSE
  56.       WriteF('Unable to open feelin.library\n')
  57.    ENDIF
  58. ENDPROC
  59.  
  60. PROC button(name,font)
  61.    RETURN   TextObject,
  62.             FA_Font,          font,
  63.             ButtonFrame,
  64.             ButtonBack,
  65.             InputRelease,
  66.             FA_FixedHeight,   TRUE,
  67.             FA_Text,          name,
  68.             FA_Text_PreParse, '`c',
  69.             End
  70. ENDPROC
  71.